################################################################################
# Affiche un message d'information
################################################################################
proc proc_affichageInfo { param_msg } {
	destroy .msgdlg
	ttk::dialog .msgdlg -parent . \
        -message $param_msg \
        -type    ok \
        -icon    info \
}

################################################################################
# Affiche un message d'avertissement
################################################################################
proc proc_affichageAttention { param_msg } {
	destroy .msgdlg
	ttk::dialog .msgdlg -parent . \
        -message $param_msg \
        -type    ok \
        -icon    warning \
}

################################################################################
# Affiche un message d'erreur
################################################################################
proc proc_affichageErreur { param_msg } {
	destroy .msgdlg
	ttk::dialog .msgdlg -parent . \
        -message $param_msg \
        -type    ok \
        -icon    error
}
